home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / apidev / netdmo.exe / CLEARCON.FRM next >
Text File  |  1993-12-10  |  4KB  |  168 lines
  1. Version 1.00
  2. BEGIN Form Clearcon
  3.     AutoRedraw   = 0
  4.     BackColor    = QBColor(1)
  5.     BorderStyle  = 1
  6.     Caption      = "Clear Connection"
  7.     ControlBox   = -1
  8.     Enabled      = -1
  9.     ForeColor    = QBColor(0)
  10.     Height       = Char(17)
  11.     Left         = Char(8)
  12.     MaxButton    = -1
  13.     MinButton    = -1
  14.     MousePointer = 0
  15.     Tag          = ""
  16.     Top          = Char(2)
  17.     Visible      = -1
  18.     Width        = Char(64)
  19.     WindowState  = 0
  20.     BEGIN ComboBox Userslist
  21.         BackColor    = QBColor(1)
  22.         DragMode     = 0
  23.         Enabled      = -1
  24.         ForeColor    = QBColor(15)
  25.         Height       = Char(1)
  26.         Left         = Char(1)
  27.         MousePointer = 0
  28.         Sorted       = 0
  29.         Style        = 0
  30.         TabIndex     = 0
  31.         TabStop      = -1
  32.         Tag          = ""
  33.         Text         = ""
  34.         Top          = Char(3)
  35.         Visible      = -1
  36.         Width        = Char(25)
  37.     END
  38.     BEGIN Label Label1
  39.         Alignment    = 0
  40.         AutoSize     = 0
  41.         BackColor    = QBColor(1)
  42.         BorderStyle  = 0
  43.         Caption      = "This utility will logout a user without warning them. "
  44.         DragMode     = 0
  45.         Enabled      = -1
  46.         ForeColor    = QBColor(15)
  47.         Height       = Char(1)
  48.         Left         = Char(2)
  49.         MousePointer = 0
  50.         TabIndex     = 3
  51.         Tag          = ""
  52.         Top          = Char(1)
  53.         Visible      = -1
  54.         Width        = Char(56)
  55.     END
  56.     BEGIN CommandButton OKClear
  57.         BackColor    = QBColor(7)
  58.         Cancel       = 0
  59.         Caption      = "Clear"
  60.         Default      = 0
  61.         DragMode     = 0
  62.         Enabled      = -1
  63.         Height       = Char(3)
  64.         Left         = Char(37)
  65.         MousePointer = 0
  66.         TabIndex     = 1
  67.         TabStop      = -1
  68.         Tag          = ""
  69.         Top          = Char(4)
  70.         Visible      = -1
  71.         Width        = Char(11)
  72.     END
  73.     BEGIN CommandButton Cancel1
  74.         BackColor    = QBColor(7)
  75.         Cancel       = 0
  76.         Caption      = "Exit"
  77.         Default      = 0
  78.         DragMode     = 0
  79.         Enabled      = -1
  80.         Height       = Char(3)
  81.         Left         = Char(37)
  82.         MousePointer = 0
  83.         TabIndex     = 2
  84.         TabStop      = -1
  85.         Tag          = ""
  86.         Top          = Char(10)
  87.         Visible      = -1
  88.         Width        = Char(11)
  89.     END
  90.     BEGIN Label Label2
  91.         Alignment    = 0
  92.         AutoSize     = 0
  93.         BackColor    = QBColor(1)
  94.         BorderStyle  = 0
  95.         Caption      = "CAUTION!!!             CAUTION!!!             CAUTION!!!"
  96.         DragMode     = 0
  97.         Enabled      = -1
  98.         ForeColor    = QBColor(12)
  99.         Height       = Char(1)
  100.         Left         = Char(2)
  101.         MousePointer = 0
  102.         TabIndex     = 4
  103.         Tag          = ""
  104.         Top          = Char(0)
  105.         Visible      = -1
  106.         Width        = Char(60)
  107.     END
  108. END
  109. '$FORM Netdemo
  110. TYPE ConInfo
  111.       ConnectNum AS INTEGER
  112.       ReturnCode AS INTEGER
  113.       ObjectType AS INTEGER
  114.       ObjectName AS STRING * 48
  115. END TYPE
  116. TYPE clcon
  117.       ConnectNum AS INTEGER
  118.       ReturnCode AS INTEGER
  119. END TYPE
  120. DECLARE SUB GetConnectionInfo (Info AS ConInfo)
  121. DECLARE SUB ClearConnection (ClearCon1 AS clcon)
  122.  
  123. SUB Cancel1_Click ()
  124. ClearCon.HIDE
  125. Netdemo.SHOW
  126. END SUB
  127.  
  128. SUB Form_Load ()
  129. DIM Info AS ConInfo
  130. DIM num1 AS STRING * 4
  131. FOR i% = 1 TO 100
  132. Info.ConnectNum = i%
  133. CALL GetConnectionInfo(Info)    'Call the Procedure
  134. Name$ = RTRIM$(Info.ObjectName$)
  135. strlen% = LEN(Name$)
  136. Name2$ = MID$(Name$, 3, strlen%) 'Strip the Nul chars.
  137. Username$ = Name2$
  138. name1% = INSTR(Name$, "NOT-LOGGED-IN")
  139. IF name1% > 0 THEN GOTO notconnected
  140. IF Info.ObjectType = 1 THEN
  141. num1 = STR$(Info.ConnectNum)
  142. UsersList.ADDITEM num1 + Name2$
  143. UsersList.Listindex = 0
  144. END IF
  145. notconnected:
  146. NEXT i%
  147. END SUB
  148.  
  149. SUB Form_Unload (Cancel AS INTEGER)
  150. Netdemo.SHOW
  151. END SUB
  152.  
  153. SUB OKClear_Click ()
  154. DIM ClearCon1 AS clcon
  155. Usercon1$ = (MID$(UsersList.text, 1, 4))
  156. msg$ = "You are about to clear connection: " + Usercon1$
  157. x% = MSGBOX(msg$, 1, "Confirm Clear Connection")
  158. IF x% = 2 THEN GOTO abort1:
  159. ClearCon1.ConnectNum% = VAL(MID$(UsersList.text, 1, 4))
  160. CALL ClearConnection(ClearCon1)
  161.  
  162. IF ClearCon1.ReturnCode% = 198 THEN msg$ = "Only Supervisor or equivelent may clear a connection."
  163. IF ClearCon1.ReturnCode% = 0 THEN msg$ = "Connection " + STR$(ClearCon1.ConnectNum%) + " Has Been Cleared"
  164. MSGBOX msg$
  165. abort1:
  166. END SUB
  167.  
  168.